body {font-family: "Times New Roman", Times, serif;
background-color: lightblue; border-style: outset; font-size: 20px;
}
This meme shows a dog being stressed about coding. I have used dog images, in particular, because dogs are adorable creatures and can be quite hilarious with their dynamic human-like expressions. The motivation behind this meme was coding itself and a similar meme I saw few weeks ago.
The meme
library(magick)
# adding first image
happy_dog <- image_read(path="happydog.jpg") %>%
image_scale(500)
# making first blank box
yellow_blank <- image_blank(width=500, height=200, color="#ffff00") %>%
image_annotate(text="*running a code", color="#000000", size=80,
font="impact", gravity="center")
#adding second image
confused_dog <- image_read(path="confuseddog.jpg") %>%
image_scale(500)
#making second blank box
yellow_blank2 <- image_blank(width=500, height=200, color="#ffff00") %>%
image_annotate(text="*1 error", color="#000000", size=80,
font="impact", gravity="center")
#adding third image
smirking_dog <- image_read(path="smirkingdog.jpg") %>%
image_scale(500)
#making third blank box
yellow_blank3 <- image_blank(width=500, height=200, color="#ffff00") %>%
image_annotate(text="*fixes error", color="#000000", size=80,
font="impact", gravity="center")
#adding fourth image
devastated_dog <- image_read(path="devastateddog1.jpg") %>%
image_scale(500)
#making fourth blank box
yellow_blank4 <- image_blank(width=500, height=200, color="#ffff00") %>%
image_annotate(text="*10 errors\n12 warnings", color="#000000", size=80,
font="impact", gravity="center")
#making vector
meme_vector <- c(happy_dog,purple_blank )
first_part <- image_append(meme_vector)
meme_vector2 <- c(confused_dog, purple_blank2)
second_part <- image_append(meme_vector2)
meme_vector3 <- c(smirking_dog, purple_blank3)
third_part <- image_append(meme_vector3)
meme_vector4 <- c(devastated_dog, purple_blank4)
fourth_part <- image_append(meme_vector4)
# stacking them
stacking_vectors <- c(first_part, second_part, third_part, fourth_part) %>%
image_append(stack = TRUE ) %>%
image_scale(600)
image_write(stacking_vectors, "my_meme5.png")
I tried to make these animations and memes as relatable to us students as possible. I got the motivation to make this meme whilst I was coding for the meme. It’s based on the small awarding technique after studying.
The animation
library(magick)
#making frames
frame2 <- image_read("image1.png")
frame3 <- image_read("image2.png")
frame4 <- image_read("image3.png")
frame5 <- image_read("image4.png")
frame6 <- image_read("image5.png")
frame7 <- image_read("image6.png")
frame8 <- image_read("image7.png")
frame9 <- image_read("image8.png")
# making vector
frames <- c(frame2, frame3, frame4, frame5, frame6, frame7, frame8)
animation <- image_morph(frames) %>%
image_animate(fps=50) %>%
image_annotate(text="Me on my way to treat myself\n after 10 mins
of studying",
font=" Times New Roman",color="white", size=60,
gravity="south") %>%
image_scale(400)
image_write(animation, "my_animation4.gif")